MV - CPCEMU Disk-File Disk-Info ZX-Modules(Track-Info  R ( *RTrack-Info  R BASTRIS2  BASTRIS2 DISK  !"DISK #PLUS3DOSIA@? BASTRIS By Chris Cowley  9700%  600X #57088=191500  9500% ( 4700\ 2JPiece=(*7)+1:rot=0:PieceClr=71G+Piece*8 <)3900<+Piece*100d+Rot*10 FFy=32 :x=14:newx=x:IsBottom=0:xy=22528X+x+y P 3800 Z 3100 d 3000 n IsBottomy=32 200 x IsBottom2000:502 3850  *y=y+32 :x=newx:xy=22528X+x+y 80P 49 ,10 ;2;1;"" D10 ,10 ;2;"";7;"Game Over";2;"" 511 ,10 ;2;1;"" '6:0:1:9800H& ""240 N=11400x:N  30 'KeyLeft=189:KeyRight=190 $KeyUp=190:KeyDown=190  X'KeyLeft=253:KeyRight=254 b$KeyUp=254:KeyDown=254 l $N=22560 X23168Z32 Row=-1 M=11 20 )(M+N)=0Row=0:M=20 M Row21004 N  4R=N22560 X-32 9 Row=0 >M=11 20 CM+R,(M+R-32 ) F(M+R)0Row=-1 HM JRowR=1 MR RLines=Lines+1 W-Lines>9999'4,24;Lines: \,Lines>9994,25;Lines: a+Lines>99c4,26;Lines: f*Lines>9 4,27;Lines: k4,28;Lines p.1}L,40( z -p1=xy+b(1,1)+b(1,2) -p2=xy+b(2,1)+b(2,2) -p3=xy+b(3,1)+b(3,2) -p4=xy+b(4,1)+b(4,2) @n1=p1+32 :n2=p2+32 :n3=p3+32 :n4=p4+32 6n1p2n1p3n1p4ƾ(n1)0IsBottom=-1: 6n2p1n2p3n2p4ƾ(n2)0IsBottom=-1: 6n3p1n3p2n3p4ƾ(n3)0IsBottom=-1: 6n4p1n4p2n4p3ƾ(n4)0IsBottom=-1:  !#57088=KeyRight3200 &"57088=KeyLeft3300 + 64256=KeyUp3400H 0"64768=KeyDown3500 5 low=0 0b(1,1)>lowlow=b(1,1) 0b(2,1)>lowlow=b(2,1) 0b(3,1)>lowlow=b(3,1Track-Info  R ) 0b(4,1)>lowlow=b(4,1) Vb(1,1)=lowƾ(xy+b(1,1)+1+b(1,2))0 Vb(2,1)=lowƾ(xy+b(2,1)+1+b(2,2))0 Vb(3,1)=lowƾ(xy+b(3,1)+1+b(3,2))0 Vb(4,1)=lowƾ(xy+b(4,1)+1+b(4,2))0 newx=x+1  low=3 0b(1,1)LowLow=x+b(1,1) d4x+b(2,1)>LowLow=x+b(2,1) f4x+b(3,1)>LowLow=x+b(3,1) h4x+b(4,1)>LowLow=x+b(4,1) j<Low>20x=x+20-Low:newx=x:xy=22528X+x+y l 3800 p 3850  3000 IsBottom3800: "y=y+32 :xy=22528X+x+y 3510 3xy+b(1,1)+b(1,2),PieceClr 3xy+b(2,1)+b(2,2),PieceClr 3xy+b(3,1)+b(3,2),PieceClr 3xy+b(4,1)+b(4,2),PieceClr   2xy+b(1,1)+b(1,2),0 2xy+b(2,1)+b(2,2),0 2xy+b(3,1)+b(3,2),0 2xy+b(4,1)+b(4,2),0  b(1,1)=1:b(1,2)=32 :b(2,1)=2:b(2,2)=32 :b(3,1)=1:b(3,2)=64@:b(4,1)=2:b(4,2)=64@: b(1,1)=0:b(1,2)=32 :b(2,1)=1:b(2,2)=32 :b(3,1)=2:b(3,2)=32 :b(4,1)=3:b(4,2)=32 : b(1,1)=2:b(1,2)=0:b(2,1)=2:b(2,2)=32 :b(3,1)=2:b(3,2)=64@:b(4,1)=2:b(4,2)=96`: b(1,1)=0:b(1,2)=64@:b(2,1)=1:b(2,2)=64@:b(3,1)=2:b(3,2)=64@:b(4,1)=3:b(4,2)=64@: "b(1,1)=1:b(1,2)=0:b(2,1)=1:b(2,2)=32 :b(3,1)=1:b(3,2)=64@:b(4,1)=1:b(4,2)=96`: hb(1,1)=1:b(1,2)=32 :b(2,1)=0:b(2,2)=64@:b(3,1)=1:b(3,2)=64@:b(4,1)=2:b(4,2)=64@: rb(1,1)=1:b(1,2)=0:b(2,1)=1:b(2,2)=32 :b(3,1)=2:b(3,2)=32 :b(4,1)=1:b(4,2)=64@: |b(1,1)=1:b(1,2)=32 :b(2,1)=2:b(2,2)=32 :b(3,1)=3:b(3,2)=32 :b(4,1)=2:b(4,2)=64@: b(1,1)=2:b(1,2)=0:b(2,1)=1:b(2,2)=32 :b(3,1)=2:b(3,2)=32 :b(4,1)=2:b(4,2)=64@: b(1,1)=1:b(1,2)=0:b(2,1)=2:b(2,2)=0:b(3,1)Track-Info  R =2:b(3,2)=32 :b(4,1)=2:b(4,2)=64@: b(1,1)=2:b(1,2)=0:b(2,1)=0:b(2,2)=32 :b(3,1)=1:b(3,2)=32 :b(4,1)=2:b(4,2)=32 : b(1,1)=1:b(1,2)=0:b(2,1)=1:b(2,2)=32 :b(3,1)=1:b(3,2)=64@:b(4,1)=2:b(4,2)=64@: b(1,1)=0:b(1,2)=0:b(2,1)=1:b(2,2)=0:b(3,1)=2:b(3,2)=0:b(4,1)=0:b(4,2)=32 : 0b(1,1)=1:b(1,2)=0:b(2,1)=2:b(2,2)=0:b(3,1)=1:b(3,2)=32 :b(4,1)=1:b(4,2)=64@: :b(1,1)=0:b(1,2)=0:b(2,1)=1:b(2,2)=0:b(3,1)=2:b(3,2)=0:b(4,1)=2:b(4,2)=32 : Db(1,1)=1:b(1,2)=0:b(2,1)=1:b(2,2)=32 :b(3,1)=0:b(3,2)=64@:b(4,1)=1:b(4,2)=64@: Nb(1,1)=0:b(1,2)=0:b(2,1)=0:b(2,2)=32 :b(3,1)=1:b(3,2)=32 :b(4,1)=2:b(4,2)=32 : b(1,1)=0:b(1,2)=32 :b(2,1)=1:b(2,2)=32 :b(3,1)=1:b(3,2)=64@:b(4,1)=2:b(4,2)=64@: b(1,1)=2:b(1,2)=0:b(2,1)=1:b(2,2)=32 :b(3,1)=2:b(3,2)=32 :b(4,1)=1:b(4,2)=64@: b(1,1)=0:b(1,2)=0:b(2,1)=1:b(2,2)=0:b(3,1)=1:b(3,2)=32 :b(4,1)=2:b(4,2)=32 : b(1,1)=2:b(1,2)=0:b(2,1)=1:b(2,2)=32 :b(3,1)=2:b(3,2)=32 :b(4,1)=1:b(4,2)=64@: b(1,1)=2:b(1,2)=32 :b(2,1)=3:b(2,2)=32 :b(3,1)=1:b(3,2)=64@:b(4,1)=2:b(4,2)=64@: b(1,1)=1:b(1,2)=0:b(2,1)=1:b(2,2)=32 :b(3,1)=2:b(3,2)=32 :b(4,1)=2:b(4,2)=64@:  b(1,1)=2:b(1,2)=32 :b(2,1)=3:b(2,2)=32 :b(3,1)=1:b(3,2)=64@:b(4,1)=2:b(4,2)=64@: b(1,1)=1:b(1,2)=0:b(2,1)=1:b(2,2)=32 :b(3,1)=2:b(3,2)=32 :b(4,1)=2:b(4,2)=64@: \ a0:0: fC1,10 ;1;"";0;"";1;"" kTN=220:N,10 ;1;" ";0;"";1;" ":N p,21,10 ;1;"" u/2,23;5;1;"" z3,23;5;1;"";7;"Lines";5;"";4,23;5;"";7;0;"00000";5;1;"" /5,23;5;1;"" #Lines=0:b(4,2)  7  %&/0:0:7:1:0: %0-2;" " %2*6;" " %4-4;" " %6-5;" " %8-1;" " %:-3;" " %D 6 %Fn8,14;"Keys:";10 ,15;" ";12 ,11 ;" ";14,15;" "Track-Info  R  %HO17,11 ;"Version 2.0";18,9 ;0;"By Chris Cowley" %J 7 %N,21,5;"Press any key to start" %X""9560X% %] 9600% %bN=1158 %dX,Y %f(M=1X:Y>-12 .011z49X,Y %h"" %jM %lN %q 9565]% %d8,0,4,12 ,4,15,4,6,8,5,4,12 %d8,0,4,12 ,4,15,4,6,8,5,4,12 %S8,0,4,12 ,4,15,4,6,8,5 %4,0,8,3,4,0,4,2,4,0,4,2,4,3,4,2 %d8,0,4,12 ,4,15,4,6,8,5,4,12 %d8,0,4,12 ,4,15,4,6,8,5,4,12 %S8,0,4,12 ,4,15,4,6,8,5 %4,0,8,3,4,0,4,2,4,0,4,2,4,3,4,2 %f8,5,4,17,4,20,4,11 ,8,10 ,4,17 %f8,5,4,17,4,20,4,11 ,8,10 ,4,17 %U8,5,4,17,4,20,4,11 ,8,10 %4,5,8,8,4,5,4,7,4,5,4,7,4,8,4,7 %d8,0,4,12 ,4,15,4,6,8,5,4,12 %d8,0,4,12 ,4,15,4,6,8,5,4,12 %S8,0,4,12 ,4,15,4,6,8,5 %4,0,8,3,4,0,4,2,4,0,4,2,4,3,4,2 %r4,0,4,0,4,0,4,0,4,0,4,0,8,10 %q4,0,4,0,4,0,4,0,4,0,4,0,8,9 %q4,0,4,0,4,0,4,0,4,0,4,0,4,8 %q8,3,4,0,4,2,4,0,4,2,4,3,4,2 %r4,0,4,0,4,0,4,0,4,0,4,0,8,10 %q4,0,4,0,4,0,4,0,4,0,4,0,8,9 %q4,0,4,0,4,0,4,0,4,0,4,0,4,8 %8,3,5,0,6,2,6,0,6,2,8,3,16,2,22,0,180,-12 % 9740 & %N="a""p"+7 %x:N,x %N % & M250,192,128,128,128,0,128,0 &K0,7,31,63?,127,255,255,255 &O0,224,248,252,254,255,255,255 &K255,255,255,127,63?,31,7,0 &O255,255,255,254,252,248,224,0 &P24,126~,255,255,255,255,255,255 &K16,480,126~,254,126~,480,16,0 &K16,24,252,254,252,24,16,0 &Q121y,255,231,207,192,194,246,124| &J568,568,568,254,124|,568,16,0 & O124|,254,198,198,198,254,124|,0 &"O252,254,198,254,252,192,192,0 &$O124|,254,198,198,206,255,127,0 &&O124|,254,198,254,254,198,198,0 &(Q255,255,255,255,255,255,255,255 &*Q254,248,240,128,128,240,248,254 &H4,24;"00000" &M-Lines>9999'4,24;Lines: &R,Lines>9994,25;Lines: &W+Lines>99c4,26;Lines: &\*Lines>9 4,27;Lines: &a4Track-Info  R ,28;Lines &f xy@eylefeyrigheyueydowineiecoiececlgewsbottoNX/X0XPXpXOXPXpXXoo- @ZZ  X4PLUS3DOSIA@? BASTRIS By Chris Cowley  9700%  600X #57088=191500  9500% ( 4700\ 2JPiece=(*7)+1:rot=0:PieceClr=71G+Piece*8 <)3900<+Piece*100d+Rot*10 FFy=32 :x=14:newx=x:IsBottom=0:xy=22528X+x+y P 3800 Z 3100 d 3000 n IsBottomy=32 200 x IsBottom2000:502 3850  *y=y+32 :x=newx:xy=22528X+x+y 80P 49 ,10 ;2;1;"" D10 ,10 ;2;"";7;"Game Over";2;"" 511 ,10 ;2;1;"" '6:0:1:9800H& ""240 N=11400x:N  30 'KeyLeft=189:KeyRight=190 $KeyUp=190:KeyDown=190  X'KeyLeft=253:KeyRight=254 b$KeyUp=254:KeyDown=254 l $N=22560 X23168Z32 Row=-1 M=11 20 )(M+N)=0Row=0:M=20 M Row21004 N  4R=N22560 X-32 9 Row=0 >M=11 20 CM+R,(M+R-32 ) F(M+R)0Row=-1 HM JRowR=1 MR RLines=Lines+1 W-Lines>9999'4,24;Lines: \,Lines>9994,25;Lines: a+Lines>99c4,26;Lines: f*Lines>9 4,27;Lines: k4,28;Lines p.1}L,40( z -p1=xy+b(1,1)+b(1,2) -p2=xy+b(2,1)+b(2,2) -p3=xy+b(3,1)+b(3,2) -p4=xy+b(4,1)+b(4,2) @n1=p1+32 :n2=p2+32 :n3=p3+32 :n4=p4+32 6n1p2n1p3n1p4ƾ(n1)0IsBottom=-1: 6n2p1n2p3n2p4ƾ(n2)0IsBottom=-1: 6n3p1n3p2n3p4ƾ(n3)0IsBottom=-1: 6n4p1n4p2n4p3ƾ(n4)0IsBottom=-1:  !#57088=KeyRight3200 &"57088=KeyLeft3300 + 64256=KeyUp3400H 0"64768=KeyDown3500 5 low=0 0b(1,1)>lowlow=b(1,1) 0b(2,1)>lowlow=b(2,1) 0b(3,1)>lowlow=b(3,1) 0b(4,1)>lowlow=b(4,1) Vb(1,1)=lowƾ(xy+b(1,1)+1+b(1,2))0 Vb(2,1)=lowƾ(xy+b(2,1)+1+b(2,2))0 Vb(3,1)=lowƾ(xy+b(3,1)+1+b(3,2))0 Vb(4,1)=lowƾ(xy+b(4,1)+1+b(4,2))0 newx=x+1  low=3 0b(1,1)LowLow=x+b(1,1) d4x+b(2,1)>LowLow=x+b(2,1) f4x+b(3,1)>LowLow=x+b(3,1) h4x+b(4,1)>LowLow=x+b(4,1) j<Low>20x=x+20-Low:newx=x:xy=22528X+x+y l 3800 p 3850  3000 IsBottom3800: "y=y+32 :xy=22528X+x+y 3510 3xy+b(1,1)+b(1,2),PieceClr 3xy+b(2,1)+b(2,2),PieceClr 3xy+b(3,1)+b(3,2),PieceClr 3xy+b(4,1)+b(4,2),PieceClr   2xy+b(1,1)+b(1,2),0 2xy+b(2,1)+b(2,2),0 2xy+b(3,1)+b(3,2),0 2xy+b(4,1)+b(4,2),0  b(1,1)=1:b(1,2)=32 :b(2,1)=2:b(2,2)=32 :b(3,1)=1:b(3,2)=64@:b(4,1)=2:b(4,2)=64@: b(1,1)=0:b(1,2)=32 :b(2,1)=1:b(2,2)=32 :b(3,1)=2:b(3,2)=32 :b(4,1)=3:b(4,2)=32 : b(1,1)=2:b(1,2)=0:b(2,1)=2:b(2,2)=32 :b(3,1)=2:b(3,2)=64@:b(4,1)=2:b(4,2)=96`: b(1,1)=0:b(1,2)=64@:b(2,1)=1:b(2,2)=64@:b(3,1)=2:b(3,2)=64@:b(4,1)=3:b(4,2)=64@: "b(1,1)=1:b(1,2)=0:b(2,1)=1:b(2,2)=32 :b(3,1)=1:b(3,2)=64@:b(4,1)=1:b(4,2)=96`: hb(1,1)=1:b(1,2)=32 :b(2,1)=0:b(2,2)=64@:b(3,1)=1:b(3,2)=64@:b(4,1)=2:b(4,2)=64@: rb(1,1)=1:b(1,2)=0:b(2,1)=1:b(2,2)=32 :b(3,1)=2:b(3,2)=32 :b(4,1)=1:b(4,2)=64@: |b(1,1)=1:b(1,2)=32 :b(2,1)=2:b(2,2)=32 :b(3,1)=3:b(3,2)=32 :b(4,1)=2:b(4,2)=64@: b(1,1)=2:b(1,2)=0:b(2,1)=1:b(2,2)=32 :b(3,1)=2:b(3,2)=32 :b(4,1)=2:b(4,2)=64@: b(1,1)=1:b(1,2)=0:b(2,1)=2:b(2,2)=0:b(3,1)=2:b(3,2)=32 :b(4,1)=2:b(4,2)=64@: b(1,1)=2:b(1,2)=0:b(2,1)=0:b(2,2)=32 :b(3,1)=1:b(3,2)=32 :b(4,1)=2:b(4,2)=32 : b(1,1)=1:b(1,2)=0:b(2,1)=1:b(2,2)=32 :b(3,1)=1:b(3,2)=64@:b(4,1)=2:b(4,2)=64@: b(1,1)=0:b(1,2)=0:b(2,1)=1:b(2,2)=0:b(3,1)=2:b(3,2)=0:b(4,1)=0:b(4,2)=32 : 0b(1,1)=1:b(1,2)=0:b(2,1)=2:b(2,2)=0:b(3,1)=1:b(3,2)=32 :b(4,1)=1:b(4,2)=64@:Track-Info  R  :b(1,1)=0:b(1,2)=0:b(2,1)=1:b(2,2)=0:b(3,1)=2:b(3,2)=0:b(4,1)=2:b(4,2)=32 : Db(1,1)=1:b(1,2)=0:b(2,1)=1:b(2,2)=32 :b(3,1)=0:b(3,2)=64@:b(4,1)=1:b(4,2)=64@: Nb(1,1)=0:b(1,2)=0:b(2,1)=0:b(2,2)=32 :b(3,1)=1:b(3,2)=32 :b(4,1)=2:b(4,2)=32 : b(1,1)=0:b(1,2)=32 :b(2,1)=1:b(2,2)=32 :b(3,1)=1:b(3,2)=64@:b(4,1)=2:b(4,2)=64@: b(1,1)=2:b(1,2)=0:b(2,1)=1:b(2,2)=32 :b(3,1)=2:b(3,2)=32 :b(4,1)=1:b(4,2)=64@: b(1,1)=0:b(1,2)=0:b(2,1)=1:b(2,2)=0:b(3,1)=1:b(3,2)=32 :b(4,1)=2:b(4,2)=32 : b(1,1)=2:b(1,2)=0:b(2,1)=1:b(2,2)=32 :b(3,1)=2:b(3,2)=32 :b(4,1)=1:b(4,2)=64@: b(1,1)=2:b(1,2)=32 :b(2,1)=3:b(2,2)=32 :b(3,1)=1:b(3,2)=64@:b(4,1)=2:b(4,2)=64@: b(1,1)=1:b(1,2)=0:b(2,1)=1:b(2,2)=32 :b(3,1)=2:b(3,2)=32 :b(4,1)=2:b(4,2)=64@:  b(1,1)=2:b(1,2)=32 :b(2,1)=3:b(2,2)=32 :b(3,1)=1:b(3,2)=64@:b(4,1)=2:b(4,2)=64@: b(1,1)=1:b(1,2)=0:b(2,1)=1:b(2,2)=32 :b(3,1)=2:b(3,2)=32 :b(4,1)=2:b(4,2)=64@: \ a0:0: fC1,10 ;1;"";0;"";1;"" kTN=220:N,10 ;1;" ";0;"";1;" ":N p,21,10 ;1;"" u/2,23;5;1;"" z3,23;5;1;"";7;"Lines";5;"";4,23;5;"";7;0;"00000";5;1;"" /5,23;5;1;"" #Lines=0:b(4,2)  7  %&/0:0:7:1:0: %0-2;" " %2*6;" " %4-4;" " %6-5;" " %8-1;" " %:-3;" " %D 6 %Fn8,14;"Keys:";10 ,15;" ";12 ,11 ;" ";14,15;" " %HO17,11 ;"Version 2.0";18,9 ;0;"By Chris Cowley" %J 7 %N,21,5;"Press any key to start" %X""9560X% %] 9600% %bN=1158 %dX,Y %f(M=1X:Y>-12 .011z49X,Y %h"" %jM %lN %q 9565]% %d8,0,4,12 ,4,15,4,6,8,5,4,12 %d8,0,4,12 ,4,15,4,6,8,5,4,12 %S8,0,4,12 ,4,15,4,6,8,5 %4,0,8,3,4,0,4,2,4,0,4,2,4,3,4,2 %d8,0,4,12 ,4,15,4,6,8,5,4,12 %d8,0,4,12 ,4,15,4,6,8,5,4,12 %S8,0,4,12 ,4,15,4,6,8,5Track-Info  R  %4,0,8,3,4,0,4,2,4,0,4,2,4,3,4,2 %f8,5,4,17,4,20,4,11 ,8,10 ,4,17 %f8,5,4,17,4,20,4,11 ,8,10 ,4,17 %U8,5,4,17,4,20,4,11 ,8,10 %4,5,8,8,4,5,4,7,4,5,4,7,4,8,4,7 %d8,0,4,12 ,4,15,4,6,8,5,4,12 %d8,0,4,12 ,4,15,4,6,8,5,4,12 %S8,0,4,12 ,4,15,4,6,8,5 %4,0,8,3,4,0,4,2,4,0,4,2,4,3,4,2 %r4,0,4,0,4,0,4,0,4,0,4,0,8,10 %q4,0,4,0,4,0,4,0,4,0,4,0,8,9 %q4,0,4,0,4,0,4,0,4,0,4,0,4,8 %q8,3,4,0,4,2,4,0,4,2,4,3,4,2 %r4,0,4,0,4,0,4,0,4,0,4,0,8,10 %q4,0,4,0,4,0,4,0,4,0,4,0,8,9 %q4,0,4,0,4,0,4,0,4,0,4,0,4,8 %8,3,5,0,6,2,6,0,6,2,8,3,16,2,22,0,180,-12 % 9740 & %N="a""p"+7 %x:N,x %N % & M250,192,128,128,128,0,128,0 &K0,7,31,63?,127,255,255,255 &O0,224,248,252,254,255,255,255 &K255,255,255,127,63?,31,7,0 &O255,255,255,254,252,248,224,0 &P24,126~,255,255,255,255,255,255 &K16,480,126~,254,126~,480,16,0 &K16,24,252,254,252,24,16,0 &Q121y,255,231,207,192,194,246,124| &J568,568,568,254,124|,568,16,0 & O124|,254,198,198,198,254,124|,0 &"O252,254,198,254,252,192,192,0 &$O124|,254,198,198,206,255,127,0 &&O124|,254,198,254,254,198,198,0 &(Q255,255,255,255,255,255,255,255 &*Q254,248,240,128,128,240,248,254 &H4,24;"00000" &M-Lines>9999'4,24;Lines: &R,Lines>9994,25;Lines: &W+Lines>99c4,26;Lines: &\*Lines>9 4,27;Lines: &a4,28;Lines &f xy@eylefeyrigheyueydowineiecoiececlgewsbottoNX/X0XPXpXOXPXpXXoo- @ZZ  X4Track-Info  R         Track-Info  R         Track-Info  R         Track-Info  R         Track-Info  R         Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R         Track-Info ! R!!!!!!!!! Track-Info " R""""""""" Track-Info # R######### Track-Info $ R$$$$$$$$$ Track-Info % R%%%%%%%%% Track-Info & R&&&&&&&&& Track-Info ' R'''''''''